home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Home CD Sampler / Microsoft Home CD Sampler.iso / multi / dinodemo / dino_en.exe / dino_en.DXR / 00002.ls next >
Encoding:
Text File  |  1995-10-09  |  762 b   |  25 lines
  1. on exitFrame
  2.   global gMovPath, dirType
  3.   set the searchPath to []
  4.   if machineType() < 256 then
  5.     set dirType to ":"
  6.   else
  7.     set dirType to "\"
  8.   end if
  9.   if the movieName contains "_" then
  10.     if the movieName contains "." then
  11.       set tempIntl to chars(the movieName, offset("_", the movieName), offset(".", the movieName) - 1)
  12.     else
  13.       set tempIntl to chars(the movieName, offset("_", the movieName), length(the movieName))
  14.     end if
  15.     if getNthFileNameInFolder(the pathName & "snds" & tempIntl, 1) <> EMPTY then
  16.       append(the searchPath, the pathName & "snds" & tempIntl)
  17.     else
  18.       append(the searchPath, the pathName & "sounds")
  19.     end if
  20.   else
  21.     append(the searchPath, the pathName & "sounds")
  22.   end if
  23.   go(1, "dinoDemo")
  24. end
  25.